home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / program / knobvb25.zip / DELPHI.ZIP / UNIT1.~PA < prev    next >
Text File  |  1996-01-13  |  820b  |  47 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, StdCtrls, VBXCtrl, Knob25;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Knob1: TKnob;
  12.     GroupBox1: TGroupBox;
  13.     MainMenu1: TMainMenu;
  14.     Exit1: TMenuItem;
  15.     Label1: TLabel;
  16.     Knob2: TKnob;
  17.     Knob3: TKnob;
  18.     Knob4: TKnob;
  19.     Knob5: TKnob;
  20.     procedure Exit1Click(Sender: TObject);
  21.     procedure Knob2Turn(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   Form1: TForm1;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TForm1.Exit1Click(Sender: TObject);
  36. begin
  37. Halt;
  38. end;
  39.  
  40. procedure TForm1.Knob2Turn(Sender: TObject);
  41. begin
  42.  
  43.      Knob3.KnobValue =: Knob3.ScaleMaxValue-Knob2.KnobValue;
  44. end;
  45.  
  46. end.
  47.